home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD023b.dsk / HELLO.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  40 lines
  1. 1  REM   HELLO
  2. 10 D$ =  CHR$(4)
  3. 30  TEXT : HOME : VTAB 1
  4. 32  HTAB 2: INVERSE : PRINT "                                      "
  5. 35  HTAB 2: PRINT "WELCOME TO THE SEP 83 SOFTDISK HARVEST"
  6. 37  HTAB 2: PRINT "                                      ": NORMAL 
  7. 40  PRINT : PRINT : HTAB 6: PRINT "THIS PROGRAM IS NAMED HELLO.
  8. 50  PRINT : PRINT : HTAB 7: PRINT "IT IS PRELIMINARY TO ";: INVERSE : PRINT "MENU": NORMAL 
  9. 90  PRINT : PRINT : HTAB 10: PRINT "1 = GETTING BACK TO ";: INVERSE : PRINT "MENU": NORMAL 
  10. 100  PRINT : HTAB 10: PRINT "2 = ABOUT THE NEW ";: INVERSE : PRINT "MENU": NORMAL : PRINT  TAB( 24);"---";
  11. 110  PRINT : HTAB 10: PRINT "3 = LET'S SEE THE ";: INVERSE : PRINT "MENU": NORMAL 
  12. 112  VTAB 21: HTAB 10: PRINT "SOFTDISK MAGAZETTE"
  13. 114  HTAB 11: PRINT "3811 ST. VINCENT"
  14. 116  HTAB 8: PRINT "SHREVEPORT, LOUISIANA 71108"
  15. 120  VTAB 18: PRINT "   WHICH ";: GET R$: PRINT R$
  16. 130  IF R$ = "1" GOTO 500
  17. 140  IF R$ = "2" GOTO 700
  18. 150  IF R$ = "3"  THEN  PRINT D$"RUNMENU"
  19. 160  GOTO 30
  20. 500  HOME : VTAB 2
  21. 510  INVERSE : PRINT "MENU";: NORMAL : PRINT " LEADS YOU INTO THE HARVEST PROGRAMS"
  22. 520  PRINT : PRINT "TO GET BACK TO ";: INVERSE : PRINT "MENU";: NORMAL : PRINT " AFTER ENTERING A"
  23. 530  PRINT : PRINT "HARVEST PROGRAM YOU SHOULD HIT RESET"
  24. 540  PRINT : PRINT "AND TYPE IN  'RUN MENU'"
  25. 550  PRINT : PRINT : PRINT "SOMETIMES A PROGRAM WILL LEAVE THINGS"
  26. 560  PRINT : PRINT "MESSED UP AND GIVE YOU AN OUT OF MEMORY"
  27. 570  PRINT : PRINT "ERROR."
  28. 580  PRINT : PRINT : PRINT "WHEN THAT HAPPENS YOU SHOULD REBOOT."
  29. 650  PRINT : PRINT : HTAB 12: INVERSE : PRINT "HIT SPACE BAR ";: GET R$: PRINT D$: GOTO 30
  30. 700  HOME : VTAB 2
  31. 710  HTAB 15: PRINT "ABOUT ";: INVERSE : PRINT "MENU": NORMAL 
  32. 715  HTAB 15: PRINT "----- ----"
  33. 720  PRINT  TAB( 6);"WITH WEILER'S NEW MENU, YOU"
  34. 725  PRINT : PRINT  TAB( 6);"READ ABOUT HARVEST AND RUN"
  35. 727  PRINT : PRINT  TAB( 6);"PROGRAMS WITHOUT HAVING TO"
  36. 730  PRINT : PRINT  TAB( 6);"WADE THROUGH A LOT OF SUB-MENUS."
  37. 740  PRINT : PRINT : PRINT  TAB( 6);"PLEASE TAKE THE V)ERBAL OPTION"
  38. 760  PRINT : PRINT  TAB( 6);"ON THE FRONT SIDE OF THIS DISK": PRINT : PRINT  TAB( 6);"AND TELL US HOW YOU LIKE THE": PRINT : PRINT  TAB( 16);: INVERSE : PRINT "NEW";: NORMAL : PRINT " MENU."
  39. 770  PRINT 
  40. 850  PRINT : HTAB 12: INVERSE : PRINT " HIT SPACE BAR ";: GET R$: PRINT D$: GOTO 30